home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs08.d81 / txedit.sda / TXTEMP (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  1KB  |  45 lines
  1. 120 A1$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  2. 125 AO$="[221]                            [221]"
  3. 130 A2$="[221]      [176][192][192][192][192][192][192][192][192][192][192][174]          [221]"
  4. 140 A9$="[221]      [221]          [221]          [221]"
  5. 150 A3$="[221]      [173][192][192][192][192][192][192][192][192][192][192][189]          [221]"
  6. 160 A4$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  7. 170 A5$="                                      "
  8. 180 A6$="          ":AA$="         "
  9. 190 A7$="[221]   "
  10. 200 A8$="     [221]"
  11. 220 DIMTA$(8),TB$(8),X$(8)
  12. 230 FORI=1TO8:READTA$(I),X$(I):NEXT
  13. 240 DATAF1-,"[204]IST [212]EXT",F2-,"[208]RINT [212]EXT",F3-,"[208]REVIEW",F4-,"[197]DIT [212]EXT"
  14. 250 DATAF5-,"[193]DD [212]EXT",F6-,"[196]ELETE [194]LK",F7-,"[210]EAD [198]ILE",F8-,"[215]RITE [198]ILE"
  15. 300 POKE53280,6:POKE53281,6:PRINTCHR$(14)"[147]"SPC(15)"[212]EXT [197]DITOR
  16. 310 [153]:[153][166]10)"ASCUNCTION (null)EY (null)VERLAY"
  17. 315 [153][166]10)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  18. 325 PRINT""TAB(6)"([212][197] [214]ERSION BY [196]AN [195]HERNOFF)":
  19. 340 T$="    [212]EXT [197]DITOR
  20. 360 T1$[178]T$[170][202](A5$,1,20[171][195](T$))
  21. 380 [129]I[178]1[164]8
  22. 410 TB$(I)[178]X$(I)[170][202](A6$,1,10[171][195](X$(I)))
  23. 430 [130]I
  24. 450 [153]"   (null)EADY PRINTER -
  25. 510 PRINT"   [200]IT ANY KEY TO CONTINUE"
  26. 520 GETA$:IFA$=""THEN520
  27. 530 OPEN4,4,7:CMD4
  28. 540 PRINT#4,A1$:PRINT#4,AO$
  29. 550 PRINT#4,A7$+T1$+A8$
  30. 570 PRINT#4,AO$
  31. 580 PRINT#4,A2$
  32. 600 FORI=1TO8
  33. 610 PRINT#4,A7$+TA$(I)+"[221] "+AA$+"[221]"+TB$(I)+"[221]"
  34. 620 IFI<>8THENPRINT#4,A9$
  35. 630 IFI=2ORI=6THENPRINT#4,A9$
  36. 640 NEXT
  37. 650 PRINT#4,A3$:PRINT#4,AO$
  38. 660 PRINT#4,A4$:PRINT#4
  39. 670 PRINT#4,CHR$(12)CHR$(12):CLOSE4
  40. 700 PRINT:PRINT"   [208]RINT AGAIN (Y/N)";
  41. 710 INPUTQ$:IFQ$=""THEN710
  42. 720 IFQ$="Y"THENPRINT"[145]"A5$"[145][145]":GOTO530
  43. 730 IFQ$<>"N"THEN700
  44. 800 END
  45.